CLASS zcl_run_schedgagrmt DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    INTERFACES if_oo_adt_classrun .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS ZCL_RUN_SCHEDGAGRMT IMPLEMENTATION.


  METHOD if_oo_adt_classrun~main.

    READ ENTITY PRIVILEGED I_SchedgLineTP_2
          ALL FIELDS WITH VALUE #(
                            ( %key-SchedulingAgreement        = '5500000002'
                              %key-SchedulingAgreementItem    = '80'
                              %key-ScheduleLine               = '75' ) )
          RESULT DATA(lt_schd_line)
          FAILED DATA(ls_read_failed)
          REPORTED DATA(ls_read_reported).

    READ ENTITY PRIVILEGED I_SchedgLineTP_2
ALL FIELDS WITH VALUE #(
                  ( %key-SchedulingAgreement        = '5500000002'
                    %key-SchedulingAgreementItem    = '80'
                    %key-ScheduleLine               = '76' ) )
RESULT DATA(lt_schd_line2)
FAILED DATA(ls_read_failed2)
REPORTED DATA(ls_read_reported2).

  ENDMETHOD.
ENDCLASS.
